1100 |
Is it is possible to exclude the non-working days when displaying the histogram using the exBarEffort for exHistOverAllocation type
|
1099 |
I display numbers in my chart, but the AddBar requires a date how can I add a bar
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "Tasks" With .Chart .PaneWidth(False) = 0 .NonworkingDays = 0 .FirstVisibleDate = 0 .ToolTip = "" With .Level(0) .Label = "<%i%>" .ToolTip = "" End With .UnitWidth = 24 End With With .Items .AddBar .AddItem("Task 1"),"Task",2,4 .AddBar .AddItem("Task 2"),"Task",6,10 End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1098 |
I display numbers in the chart's header but do not want to get displayed negative numbers. How can i do that
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_DateChange() With G2antt1 .Chart.FirstVisibleDate = 0 .ScrollPartEnable(2,1024) = False End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate With .Chart .PaneWidth(False) = 0 .NonworkingDays = 0 .FirstVisibleDate = 0 .ToolTip = "" With .Level(0) .Label = "<%i%>" .ToolTip = "<%i%>" End With .UnitWidth = 24 End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1097 |
How can I display numbers in the chart's header instead dates
|
1096 |
How can I create a bar that's not sizable, or can not be resized by default similar with milestone
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "Task" With .Chart .PaneWidth(False) = 0 .FirstVisibleDate = #12/24/2000# .LevelCount = 2 With .Bars.Add("Custom") .Shape = 0 .StartShape = 1 .EndShape = 0 End With End With With .Items .AddBar .AddItem(""),"Custom",#1/2/2001#,#1/2/2001#,"K1","This TYPE of bar can not be resized." End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1095 |
Is it possible to hide the non-working parts for items using the ItemNonworkingUnits, even if set the ShowNonworkingUnits, ShowNonworkingDates on False
|
1094 |
Is it possible to show the non-working parts for certain items, even if I hide the default non-working part
|
1093 |
How can I hide the non-working part of the chart
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate With .Chart .FirstVisibleDate = #1/1/2008# .PaneWidth(False) = 0 .LevelCount = 2 .ShowNonworkingUnits = False .ShowNonworkingDates = False End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1092 |
Is it possible to let users selects cells as in Excel
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .FullRowSelect = 1 .SingleSel = False .ReadOnly = -1 .MarkSearchColumn = False .ShowFocusRect = False .LinesAtRoot = -1 .SelForeColor = RGB(0,0,0) .SelBackColor = RGB(200,225,242) With .Columns .Add "A" With .Add("B") .AllowSizing = False .Width = 24 End With With .Add("C") .AllowSizing = False .Width = 24 .Def(0) = 1 .PartialCheck = True End With With .Add("D") .AllowSizing = False .Width = 24 .Def(1) = 1 End With End With With .Items h = .InsertItem(,,"Group 1") h1 = .InsertItem(h,,16) .CellValue(h1,1) = 17 h1 = .InsertItem(h,,2) .CellValue(h1,1) = 11 h1 = .InsertItem(h,,2) .ItemBackColor(h1) = RGB(240,240,240) .CellValue(h1,1) = 9 .ExpandItem(h) = True h = .InsertItem(,,"Group 2") .CellValueFormat(h,2) = 1 h1 = .InsertItem(h,,16) .CellValue(h1,1) = 9 h1 = .InsertItem(h,,12) .CellValue(h1,1) = 11 h1 = .InsertItem(h,,2) .CellValue(h1,1) = 2 .ExpandItem(h) = True .SelectItem(h) = True End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1091 |
How can I hide a date from the chart view
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate With .Chart .FirstVisibleDate = #1/1/2008# .PaneWidth(False) = 0 .LevelCount = 2 .AllowInsideZoom = True .AllowResizeInsideZoom = False .InsideZoomOnDblClick = False With .InsideZooms .SplitBaseLevel = False .DefaultWidth = 0 .Add #1/4/2008# .Add #1/5/2008# .Add #1/6/2008# End With .SelectLevel = 1 .SelectDate(#1/5/2008#) = True End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1090 |
Can the SchedulePDM displays and edit the working units for my bars
|
1089 |
Can the SchedulePDM displays the working units for my bars
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_BarResizing(Item,Key) With G2antt1 .Items.SchedulePDM Item,Key End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Items.AllowCellValueToItemBar = True .Columns.Add "Task" .Columns.Add("Working").Def(18) = 258 With .Chart .Bars.Add("Task:Split").Shortcut = "Task" .FirstVisibleDate = #12/28/2000# .PaneWidth(False) = 96 .AllowLinkBars = False .AllowCreateBar = 0 End With With .Items h1 = .AddItem("Task 1") .AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"" h2 = .AddItem("Task 2") .AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"" .AddLink "L1",h1,"",h2,"" h3 = .AddItem("Task 3") .AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"" .AddLink "L2",h2,"",h3,"" .Link("L2",12) = "FF" .Link("L2",6) = 2 .Link("L2",7) = 2 h4 = .AddItem("Task 4") .AddBar h4,"Task",#1/2/2001#,#1/4/2001#,"" .AddLink "L3",h4,"",h3,"" .ItemBar(0,"<*>",20) = True .SchedulePDM .FirstVisibleItem,"" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1088 |
Can the SchedulePDM keeps the working units for my bars
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_BarResizing(Item,Key) With G2antt1 .Items.SchedulePDM Item,Key End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "Task" With .Chart .Bars.Add("Task:Split").Shortcut = "Task" .FirstVisibleDate = #12/28/2000# .PaneWidth(False) = 48 .AllowLinkBars = False .AllowCreateBar = 0 End With With .Items h1 = .AddItem("Task 1") .AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1" h2 = .AddItem("Task 2") .AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2" .AddLink "L1",h1,"K1",h2,"K2" h3 = .AddItem("Task 3") .AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3" .AddLink "L2",h2,"K2",h3,"K3" .Link("L2",12) = "FF" .Link("L2",6) = 2 .Link("L2",7) = 2 h4 = .AddItem("Task 4") .AddBar h4,"Task",#1/2/2001#,#1/4/2001#,"K4" .AddLink "L3",h4,"K4",h3,"K3" .ItemBar(0,"<*>",20) = True .SchedulePDM 0,"K1" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1087 |
How can I arrange automatically the bars based on their links as soon as user moves the bars
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_BarResizing(Item,Key) With G2antt1 .Items.SchedulePDM Item,Key End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "Task" With .Chart .FirstVisibleDate = #12/28/2000# .PaneWidth(False) = 48 .AllowLinkBars = False .AllowCreateBar = 0 End With With .Items h1 = .AddItem("Task 1") .AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1" h2 = .AddItem("Task 2") .AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2" .AddLink "L1",h1,"K1",h2,"K2" h3 = .AddItem("Task 3") .AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3" .AddLink "L2",h2,"K2",h3,"K3" .Link("L2",12) = "FF" .Link("L2",6) = 2 .Link("L2",7) = 2 h4 = .AddItem("Task 4") .AddBar h4,"Task",#1/2/2001#,#1/4/2001#,"K4" .AddLink "L3",h4,"K4",h3,"K3" .SchedulePDM 0,"K1" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1086 |
How can I arrange automatically the bars based on their links as soon as user moves the bars
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_BarResize(Item,Key) With G2antt1 .Items.SchedulePDM Item,Key End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "Task" With .Chart .FirstVisibleDate = #1/1/2001# .PaneWidth(False) = 48 .AllowLinkBars = False .AllowCreateBar = 0 End With With .Items h1 = .AddItem("Task 1") .AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1" h2 = .AddItem("Task 2") .AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2" .AddLink "L1",h1,"K1",h2,"K2" h3 = .AddItem("Task 3") .AddBar h3,"Task",#1/2/2001#,#1/4/2001#,"K3" .AddLink "L2",h2,"K2",h3,"K3" .SchedulePDM 0,"K1" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1085 |
I have some buttons added on the control's scroll bar, how can I can know when the button is being clicked
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_ScrollButtonClick(ScrollBar,ScrollPart) With G2antt1 alert( ScrollBar ) alert( ScrollPart ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .ScrollPartVisible(1,32768) = True .ScrollPartVisible(1,16384) = True .ScrollPartVisible(1,1) = True .ScrollPartVisible(1,2) = True .ScrollBars = 5 End With End Function </SCRIPT> </BODY> |
1084 |
How do I get notified once the user clicks a hyperlink created using the anchor HTML tag
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_AnchorClick(AnchorID,Options) With G2antt1 alert( AnchorID ) alert( Options ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .Columns.Add("Default").Def(17) = 1 With .Items .AddItem "This is a link: <aex.com;1>www.exontrol.com</a>" .AddItem "This is a link: <aex.net;2>www.exontrol.net</a>" End With End With End Function </SCRIPT> </BODY> |
1083 |
Is it possible to start editing a cell when double click it
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_DblClick(Shift,X,Y) With G2antt1 .Edit End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .AutoEdit = False .MarkSearchColumn = False .Columns.Add("Edit1").Editor.EditType = 1 .Columns.Add("Edit2").Editor.EditType = 1 With .Items .CellValue(.AddItem(1),1) = 2 End With With .Items .CellValue(.AddItem(3),1) = 4 End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1082 |
Is it possible to disable standard single-click behavior for this column, so I manually could call Edit() when needed
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_DblClick(Shift,X,Y) With G2antt1 .Edit End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .AutoEdit = False .MarkSearchColumn = False .Columns.Add("Edit1").Editor.EditType = 1 .Columns.Add("Edit2").Editor.EditType = 1 With .Items .CellValue(.AddItem(1),1) = 2 End With With .Items .CellValue(.AddItem(3),1) = 4 End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1081 |
How can I get or restore the old or previously value for the cell being changed
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_Change(Item,ColIndex,NewValue) With G2antt1 alert( "Old-Value:" ) alert( .Items.CellValue(Item,ColIndex) ) alert( "New-Value:" ) alert( NewValue ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .MarkSearchColumn = False .Columns.Add("Edit1").Editor.EditType = 1 .Columns.Add("Edit2").Editor.EditType = 1 With .Items .CellValue(.AddItem(1),1) = 2 End With With .Items .CellValue(.AddItem(3),1) = 4 End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1080 |
How can I display the number of items being found after filtering
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_FilterChange() With G2antt1 .FilterBarCaption = .Items.VisibleCount End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 .ColumnAutoResize = True .ContinueColumnScroll = 0 .FocusColumnIndex = 1 .MarkSearchColumn = False .SearchColumnIndex = 1 .FilterBarPromptVisible = True ' True .FilterBarPromptType = 1 .FilterBarPromptPattern = "london" With .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add "City" End With With .Items h0 = .AddItem("Nancy Davolio") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .CellValue(h0,1) = "Vice President, Sales" .CellValue(h0,2) = "Tacoma" .SelectItem(h0) = True h0 = .AddItem("Janet Leverling") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .CellValue(h0,1) = "Sales Manager" .CellValue(h0,2) = "London" h0 = .AddItem("Michael Suyama") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Robert King") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Laura Callahan") .CellValue(h0,1) = "Inside Sales Coordinator" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1079 |
How can I highligth the item from the cursor as it moves
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_MouseMove(Button,Shift,X,Y) With G2antt1 .BeginUpdate h = .ItemFromPoint(-1,-1,c,hit) With .Items .ClearItemBackColor G2antt1.Background(1000) ' &H200 Or BackgroundPartEnum.exHSRight Or BackgroundPartEnum.exListOLEDropPosition .ItemBackColor(h) = RGB(240,250,240) End With .Background(1000) = h ' &H200 Or BackgroundPartEnum.exHSRight Or BackgroundPartEnum.exListOLEDropPosition .EndUpdate End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .LinesAtRoot = -1 .DrawGridLines = 1 .SelBackColor = RGB(240,250,240) .SelForeColor = RGB(0,0,0) .ShowFocusRect = False With .Chart .SelBackColor = RGB(240,250,240) End With .Columns.Add "Items" With .Items h = .AddItem("R1") .InsertItem h,,"Cell 1.1" .InsertItem h,,"Cell 1.2" .ExpandItem(h) = True h = .AddItem("R2") .InsertItem h,,"Cell 2.1" .InsertItem h,,"Cell 2.2" .ExpandItem(h) = True End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1078 |
How can I get the item from the cursor
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_MouseMove(Button,Shift,X,Y) With G2antt1 h = .ItemFromPoint(-1,-1,c,hit) alert( "Handle" ) alert( h ) alert( "Index" ) alert( .Items.ItemToIndex(h) ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .LinesAtRoot = -1 .DrawGridLines = 1 .Columns.Add "Items" With .Items h = .AddItem("R1") .InsertItem h,,"Cell 1.1" .InsertItem h,,"Cell 1.2" .ExpandItem(h) = True h = .AddItem("R2") .InsertItem h,,"Cell 2.1" .InsertItem h,,"Cell 2.2" .ExpandItem(h) = True End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1077 |
How can I get the column from the cursor, not only in the header
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_MouseMove(Button,Shift,X,Y) With G2antt1 alert( .ColumnFromPoint(-1,0) ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .LinesAtRoot = -1 .Columns.Add "P1" .Columns.Add "P2" .DrawGridLines = -1 With .Items h = .AddItem("R1") .CellValue(h,1) = "R2" .CellValue(.InsertItem(h,,"Cell 1.1"),1) = "Cell 1.2" .CellValue(.InsertItem(h,,"Cell 2.1"),1) = "Cell 2.2" .ExpandItem(h) = True End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1076 |
How can I get the column from the cursor
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_MouseMove(Button,Shift,X,Y) With G2antt1 alert( .ColumnFromPoint(-1,-1) ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .LinesAtRoot = -1 .DrawGridLines = -1 .Columns.Add "P1" .Columns.Add "P2" With .Items h = .AddItem("R1") .CellValue(h,1) = "R2" .CellValue(.InsertItem(h,,"Cell 1.1"),1) = "Cell 1.2" .CellValue(.InsertItem(h,,"Cell 2.1"),1) = "Cell 2.2" .ExpandItem(h) = True End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1075 |
How can I get the cell's caption from the cursor
<BODY onload="Init()"> <SCRIPT LANGUAGE="VBScript"> Function G2antt1_MouseMove(Button,Shift,X,Y) With G2antt1 h = .ItemFromPoint(-1,-1,c,hit) alert( .Items.CellCaption(h,c) ) End With End Function </SCRIPT> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .LinesAtRoot = -1 .Columns.Add "Items" With .Items h = .AddItem("R1") .InsertItem h,,"Cell 1.1" .InsertItem h,,"Cell 1.2" .ExpandItem(h) = True h = .AddItem("R2") .InsertItem h,,"Cell 2.1" .InsertItem h,,"Cell 2.2" .ExpandItem(h) = True End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1074 |
Is it possible to change the style for the vertical or horizontal grid lines, in the list area
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .DrawGridLines = -1 .GridLineStyle = 33 ' GridLinesStyleEnum.exGridLinesVSolid Or GridLinesStyleEnum.exGridLinesHDot4 .Columns.Add "C1" .Columns.Add "C2" .Columns.Add "C3" With .Items h = .AddItem("Item 1") .CellValue(h,1) = "SubItem 1.2" .CellValue(h,2) = "SubItem 1.3" h = .AddItem("Item 2") .CellValue(h,1) = "SubItem 2.2" .CellValue(h,2) = "SubItem 2.3" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1073 |
How can I show the bars over the grid lines, i.e. so you cannot see the grid lines 'through' the bar
|
1072 |
Is it possible to change the style for the vertical grid lines, in the chart area only
|
1071 |
Is it possible to change the style for the grid lines, for instance to be solid not dotted
|
1070 |
How can I show the grid lines for the chart and list area
|
1069 |
In the level of the chart we are showing the week number of the year (1-53) (Week: ww). However the weeknumber isn't correct. In western Europe the week of 04/01/2010 till 10/01/2010 is weeknumber 1, however the g2antt says it's week 2
|
1068 |
How can I determine the current visible date range of the gantt chart area
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .Columns.Add "Task" With .Chart .FirstVisibleDate = #1/1/2001# .PaneWidth(False) = 48 End With With .Items .AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/6/2001# .AddBar .AddItem("Task 2"),"Task",#1/3/2001#,#1/7/2001# .AddBar .AddItem("Task 3"),"Task",#1/4/2001#,#1/8/2001# .AddBar .AddItem("Task 4"),"Task",#1/6/2001#,#1/10/2001# End With alert( .Chart.StartPrintDate ) alert( .Chart.EndPrintDate ) End With End Function </SCRIPT> </BODY> |
1067 |
How can I change the progress bar using a spin editor using values from 0 to 100
|
1066 |
Is it possible to display the histogram for selected bars only
|
1065 |
How can I fix a bar, so it is not selectable, moveable or resizable, fixed in other words
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "Task" With .Chart .FirstVisibleDate = #1/1/2001# .PaneWidth(False) = 48 End With With .Items h1 = .AddItem("Task 1") .AddBar h1,"Task",#1/2/2001#,#1/8/2001#,"K1","Unselectable" .ItemBar(h1,"K1",29) = False End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1064 |
How can I fix a bar, so it is not moveable or resizable
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "Task" With .Chart .FirstVisibleDate = #1/1/2001# .PaneWidth(False) = 48 End With With .Items h1 = .AddItem("Task 1") .AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1","Fixed" .ItemBar(h1,"K1",10) = False .ItemBar(h1,"K1",11) = False End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1063 |
Is is possible to fix a bar during PDM scheduling
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "Task" With .Chart .FirstVisibleDate = #1/1/2001# .PaneWidth(False) = 48 End With With .Items h1 = .AddItem("Task 1") .AddBar h1,"TaskF",#1/2/2001#,#1/4/2001#,"K1" .ItemBar(h1,"K1",10) = False .ItemBar(h1,"K1",11) = False h2 = .AddItem("Task 2") .AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2" .AddLink "L1",h1,"K1",h2,"K2" h3 = .AddItem("Task 3") .AddBar h3,"TaskF",#1/2/2001#,#1/4/2001#,"K3" .ItemBar(h3,"K3",10) = False .ItemBar(h3,"K3",11) = False .AddLink "L2",h2,"K2",h3,"K3" .SchedulePDM 0,"K1" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1062 |
How can I specify that during scheduling the link, bars should be delayed, on working part
|
1061 |
How can I specify that during scheduling the link, bars should be delayed
|
1060 |
The SchedulePDM method put the bars on non-working part, how can I prevent that
|
1059 |
How can I add a SF (Start-Finish) link so activities get arranged using the SchedulePDM
|
1058 |
How can I add a SS (Start-Start) link so activities get arranged using the SchedulePDM
|
1057 |
How can I add a FF (Finish-Finish) link so activities get arranged using the SchedulePDM
|
1056 |
How can I add a FS (Finish-Start) link so activities get arranged using the SchedulePDM
|
1055 |
How can I schedule activities in the project plan
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "Task" With .Chart .FirstVisibleDate = #1/1/2001# .PaneWidth(False) = 48 End With With .Items h1 = .AddItem("Task 1") .AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1" h2 = .AddItem("Task 2") .AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2" .AddLink "L1",h1,"K1",h2,"K2" h3 = .AddItem("Task 3") .AddBar h3,"Task",#1/2/2001#,#1/4/2001#,"K3" .AddLink "L2",h3,"K3",h2,"K2" .SchedulePDM 0,"K1" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1054 |
How do I arrange the bars based on the links
|
1053 |
Is is possible to use HTML tags to display in the filter caption
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .FilterBarPromptVisible = True ' True .FilterBarCaption = "This is a bit of text being displayed in the filter bar." .Columns.Add "" With .Items .AddItem "Item 1" .AddItem "Item 2" .AddItem "Item 3" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1052 |
How can I find the number of items after filtering
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add "" With .Items h = .AddItem("") .CellValue(h,0) = .VisibleItemCount End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1051 |
How can I change the filter caption
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 .ColumnAutoResize = True .ContinueColumnScroll = 0 .FocusColumnIndex = 1 .MarkSearchColumn = False .SearchColumnIndex = 1 .FilterBarPromptVisible = True ' True .FilterBarPromptType = 12801 ' FilterPromptEnum.exFilterPromptWords Or FilterPromptEnum.exFilterPromptContainsAll .FilterBarPromptPattern = "london robert" .FilterBarCaption = "<r>Found: ... " With .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add "City" End With With .Items h0 = .AddItem("Nancy Davolio") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .CellValue(h0,1) = "Vice President, Sales" .CellValue(h0,2) = "Tacoma" .SelectItem(h0) = True h0 = .AddItem("Janet Leverling") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .CellValue(h0,1) = "Sales Manager" .CellValue(h0,2) = "London" h0 = .AddItem("Michael Suyama") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Robert King") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Laura Callahan") .CellValue(h0,1) = "Inside Sales Coordinator" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1050 |
While using the filter prompt is it is possible to use wild characters
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 .ColumnAutoResize = True .ContinueColumnScroll = 0 .FocusColumnIndex = 1 .MarkSearchColumn = False .SearchColumnIndex = 1 .FilterBarPromptVisible = True ' True .FilterBarPromptType = 16 .FilterBarPromptPattern = "lon* seat*" With .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add "City" End With With .Items h0 = .AddItem("Nancy Davolio") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .CellValue(h0,1) = "Vice President, Sales" .CellValue(h0,2) = "Tacoma" .SelectItem(h0) = True h0 = .AddItem("Janet Leverling") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .CellValue(h0,1) = "Sales Manager" .CellValue(h0,2) = "London" h0 = .AddItem("Michael Suyama") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Robert King") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Laura Callahan") .CellValue(h0,1) = "Inside Sales Coordinator" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1049 |
How can I list all items that contains any of specified words, not necessary at the beggining
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 .ColumnAutoResize = True .ContinueColumnScroll = 0 .FocusColumnIndex = 1 .MarkSearchColumn = False .SearchColumnIndex = 1 .FilterBarPromptVisible = True ' True .FilterBarPromptType = 4610 ' FilterPromptEnum.exFilterPromptStartWords Or FilterPromptEnum.exFilterPromptContainsAny .FilterBarPromptPattern = "london davolio" With .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add "City" End With With .Items h0 = .AddItem("Nancy Davolio") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .CellValue(h0,1) = "Vice President, Sales" .CellValue(h0,2) = "Tacoma" .SelectItem(h0) = True h0 = .AddItem("Janet Leverling") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .CellValue(h0,1) = "Sales Manager" .CellValue(h0,2) = "London" h0 = .AddItem("Michael Suyama") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Robert King") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Laura Callahan") .CellValue(h0,1) = "Inside Sales Coordinator" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1048 |
How can I list all items that contains any of specified words, not strings
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .ColumnAutoResize = True .ContinueColumnScroll = 0 .FocusColumnIndex = 1 .Chart.PaneWidth(True) = 0 .MarkSearchColumn = False .SearchColumnIndex = 1 .FilterBarPromptVisible = True ' True .FilterBarPromptType = 12802 ' FilterPromptEnum.exFilterPromptWords Or FilterPromptEnum.exFilterPromptContainsAny .FilterBarPromptPattern = "london nancy" With .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add "City" End With With .Items h0 = .AddItem("Nancy Davolio") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .CellValue(h0,1) = "Vice President, Sales" .CellValue(h0,2) = "Tacoma" .SelectItem(h0) = True h0 = .AddItem("Janet Leverling") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .CellValue(h0,1) = "Sales Manager" .CellValue(h0,2) = "London" h0 = .AddItem("Michael Suyama") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Robert King") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Laura Callahan") .CellValue(h0,1) = "Inside Sales Coordinator" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1047 |
How can I list all items that contains all specified words, not strings
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 .ColumnAutoResize = True .ContinueColumnScroll = 0 .FocusColumnIndex = 1 .MarkSearchColumn = False .SearchColumnIndex = 1 .FilterBarPromptVisible = True ' True .FilterBarPromptType = 12801 ' FilterPromptEnum.exFilterPromptWords Or FilterPromptEnum.exFilterPromptContainsAll .FilterBarPromptPattern = "london robert" With .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add "City" End With With .Items h0 = .AddItem("Nancy Davolio") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .CellValue(h0,1) = "Vice President, Sales" .CellValue(h0,2) = "Tacoma" .SelectItem(h0) = True h0 = .AddItem("Janet Leverling") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .CellValue(h0,1) = "Sales Manager" .CellValue(h0,2) = "London" h0 = .AddItem("Michael Suyama") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Robert King") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Laura Callahan") .CellValue(h0,1) = "Inside Sales Coordinator" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1046 |
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .ColumnAutoResize = True .ContinueColumnScroll = 0 .FocusColumnIndex = 1 .MarkSearchColumn = False .SearchColumnIndex = 1 .FilterBarPromptVisible = True ' True .FilterBarPromptType = 258 ' FilterPromptEnum.exFilterPromptCaseSensitive Or FilterPromptEnum.exFilterPromptContainsAny .FilterBarPromptPattern = "Anne" .Chart.PaneWidth(True) = 0 With .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add "City" End With With .Items h0 = .AddItem("Nancy Davolio") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .CellValue(h0,1) = "Vice President, Sales" .CellValue(h0,2) = "Tacoma" .SelectItem(h0) = True h0 = .AddItem("Janet Leverling") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .CellValue(h0,1) = "Sales Manager" .CellValue(h0,2) = "London" h0 = .AddItem("Michael Suyama") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Robert King") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Laura Callahan") .CellValue(h0,1) = "Inside Sales Coordinator" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1045 |
Is it possible to list only items that ends with any of specified strings
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .ColumnAutoResize = True .ContinueColumnScroll = 0 .FocusColumnIndex = 1 .MarkSearchColumn = False .SearchColumnIndex = 1 .FilterBarPromptVisible = True ' True .FilterBarPromptType = 4 .FilterBarPromptColumns = "0" .FilterBarPromptPattern = "Fuller" .Chart.PaneWidth(True) = 0 With .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add "City" End With With .Items h0 = .AddItem("Nancy Davolio") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .CellValue(h0,1) = "Vice President, Sales" .CellValue(h0,2) = "Tacoma" .SelectItem(h0) = True h0 = .AddItem("Janet Leverling") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .CellValue(h0,1) = "Sales Manager" .CellValue(h0,2) = "London" h0 = .AddItem("Michael Suyama") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Robert King") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Laura Callahan") .CellValue(h0,1) = "Inside Sales Coordinator" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1044 |
Is it possible to list only items that ends with any of specified strings
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .ColumnAutoResize = True .ContinueColumnScroll = 0 .FocusColumnIndex = 1 .MarkSearchColumn = False .SearchColumnIndex = 1 .FilterBarPromptVisible = True ' True .FilterBarPromptType = 4 .FilterBarPromptColumns = "0" .FilterBarPromptPattern = "Fuller" .Chart.PaneWidth(True) = 0 With .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add "City" End With With .Items h0 = .AddItem("Nancy Davolio") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .CellValue(h0,1) = "Vice President, Sales" .CellValue(h0,2) = "Tacoma" .SelectItem(h0) = True h0 = .AddItem("Janet Leverling") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .CellValue(h0,1) = "Sales Manager" .CellValue(h0,2) = "London" h0 = .AddItem("Michael Suyama") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Robert King") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Laura Callahan") .CellValue(h0,1) = "Inside Sales Coordinator" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1043 |
Is it possible to list only items that starts with any of specified strings
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .ColumnAutoResize = True .ContinueColumnScroll = 0 .FocusColumnIndex = 1 .MarkSearchColumn = False .SearchColumnIndex = 1 .FilterBarPromptVisible = True ' True .FilterBarPromptType = 3 .FilterBarPromptColumns = "0" .FilterBarPromptPattern = "An M" .Chart.PaneWidth(True) = 0 With .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add "City" End With With .Items h0 = .AddItem("Nancy Davolio") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .CellValue(h0,1) = "Vice President, Sales" .CellValue(h0,2) = "Tacoma" .SelectItem(h0) = True h0 = .AddItem("Janet Leverling") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .CellValue(h0,1) = "Sales Manager" .CellValue(h0,2) = "London" h0 = .AddItem("Michael Suyama") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Robert King") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Laura Callahan") .CellValue(h0,1) = "Inside Sales Coordinator" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1042 |
Is it possible to list only items that starts with specified string
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .ColumnAutoResize = True .ContinueColumnScroll = 0 .FocusColumnIndex = 1 .MarkSearchColumn = False .SearchColumnIndex = 1 .FilterBarPromptVisible = True ' True .FilterBarPromptType = 3 .FilterBarPromptColumns = "0" .FilterBarPromptPattern = "A" .Chart.PaneWidth(True) = 0 With .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add "City" End With With .Items h0 = .AddItem("Nancy Davolio") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .CellValue(h0,1) = "Vice President, Sales" .CellValue(h0,2) = "Tacoma" .SelectItem(h0) = True h0 = .AddItem("Janet Leverling") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .CellValue(h0,1) = "Sales Manager" .CellValue(h0,2) = "London" h0 = .AddItem("Michael Suyama") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Robert King") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Laura Callahan") .CellValue(h0,1) = "Inside Sales Coordinator" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1041 |
How can I specify that the list should include any of the seqeunces in the pattern
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .ColumnAutoResize = True .ContinueColumnScroll = 0 .FocusColumnIndex = 1 .MarkSearchColumn = False .SearchColumnIndex = 1 .FilterBarPromptVisible = True ' True .FilterBarPromptType = 2 .FilterBarPromptPattern = "london seattle" .Chart.PaneWidth(True) = 0 With .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add "City" End With With .Items h0 = .AddItem("Nancy Davolio") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .CellValue(h0,1) = "Vice President, Sales" .CellValue(h0,2) = "Tacoma" .SelectItem(h0) = True h0 = .AddItem("Janet Leverling") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .CellValue(h0,1) = "Sales Manager" .CellValue(h0,2) = "London" h0 = .AddItem("Michael Suyama") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Robert King") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Laura Callahan") .CellValue(h0,1) = "Inside Sales Coordinator" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1040 |
How can I specify that all sequences in the filter pattern must be included in the list
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 .ColumnAutoResize = True .ContinueColumnScroll = 0 .FocusColumnIndex = 1 .MarkSearchColumn = False .SearchColumnIndex = 1 .FilterBarPromptVisible = True ' True .FilterBarPromptType = 1 .FilterBarPromptPattern = "london manager" With .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add "City" End With With .Items h0 = .AddItem("Nancy Davolio") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .CellValue(h0,1) = "Vice President, Sales" .CellValue(h0,2) = "Tacoma" .SelectItem(h0) = True h0 = .AddItem("Janet Leverling") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .CellValue(h0,1) = "Sales Manager" .CellValue(h0,2) = "London" h0 = .AddItem("Michael Suyama") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Robert King") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Laura Callahan") .CellValue(h0,1) = "Inside Sales Coordinator" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1039 |
How do I change at runtime the filter prompt
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .ColumnAutoResize = True .ContinueColumnScroll = 0 .FocusColumnIndex = 1 .Chart.PaneWidth(True) = 0 .MarkSearchColumn = False .SearchColumnIndex = 1 .FilterBarPromptVisible = True ' True .FilterBarPromptPattern = "london manager" With .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add "City" End With With .Items h0 = .AddItem("Nancy Davolio") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .CellValue(h0,1) = "Vice President, Sales" .CellValue(h0,2) = "Tacoma" .SelectItem(h0) = True h0 = .AddItem("Janet Leverling") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .CellValue(h0,1) = "Sales Manager" .CellValue(h0,2) = "London" h0 = .AddItem("Michael Suyama") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Robert King") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Laura Callahan") .CellValue(h0,1) = "Inside Sales Coordinator" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1038 |
How do I specify to filter only a single column when using the filter prompt
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .ColumnAutoResize = True .ContinueColumnScroll = 0 .FocusColumnIndex = 1 .Chart.PaneWidth(True) = 0 .MarkSearchColumn = False .SearchColumnIndex = 1 .FilterBarPromptVisible = True ' True .FilterBarPromptColumns = "2,3" .FilterBarPromptPattern = "london" With .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add "City" End With With .Items h0 = .AddItem("Nancy Davolio") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .CellValue(h0,1) = "Vice President, Sales" .CellValue(h0,2) = "Tacoma" .SelectItem(h0) = True h0 = .AddItem("Janet Leverling") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .CellValue(h0,1) = "Sales Manager" .CellValue(h0,2) = "London" h0 = .AddItem("Michael Suyama") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Robert King") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Laura Callahan") .CellValue(h0,1) = "Inside Sales Coordinator" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1037 |
How do I change the prompt or the caption being displayed in the filter bar
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Chart.PaneWidth(True) = 0 .ColumnAutoResize = True .ContinueColumnScroll = 0 .FocusColumnIndex = 1 .MarkSearchColumn = False .SearchColumnIndex = 1 .FilterBarPromptVisible = True ' True .FilterBarPrompt = "changed" With .Columns .Add("Name").Width = 96 .Add("Title").Width = 96 .Add "City" End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1036 |
How do I enable the filter prompt feature
|
1035 |
How can I unselect all bars
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .Columns.Add "Task" .Chart.FirstVisibleDate = #1/1/2001# With .Items .AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1" .AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K2" .AddBar .AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K3" .AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4" .ItemBar(0,"<*>",257) = True .ItemBar(0,"<*>",257) = False End With End With End Function </SCRIPT> </BODY> |
1034 |
Can I select bars using a pattern using wild characters as *,
|
1033 |
How can I select all bars in the item with a specified key
|
1032 |
How can I select all bars in the specified item
|
1031 |
How can I select all bars with a specified key
|
1030 |
How can I select all bars
|
1029 |
I have the AllowInsideZoom property on True, but I am still not able to use the inside zoom feature
|
1028 |
Is there any option to find out if two bars intersects
|
1027 |
How can I find if a specified hour is a working or non-working hour, when using the ItemNonWorkingUnits
|
1026 |
How can I find if a specified hour is a working or non-working hour
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add("Hour").FormatColumn = "hour(value)" .Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'" With .Chart .FirstVisibleDate = #1/1/2001# .PaneWidth(0) = 164 .FirstWeekDay = 1 .LevelCount = 2 .UnitScale = 65536 .NonworkingHours = 1 End With With .Items h = .AddItem(#1/1/2001#) w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0)) .CellValue(h,1) = w h = .AddItem(#1/1/2001 1:00:00 AM#) w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0)) .CellValue(h,1) = w End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1025 |
How can I find if a specified date-time is a working or non-working unit, when using the ItemNonWorkingUnits
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add("Date").Width = 48 .Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'" With .Chart .FirstVisibleDate = #1/1/2001# .PaneWidth(0) = 128 .FirstWeekDay = 1 .LevelCount = 2 End With With .Items h = .AddItem(#1/1/2001#) w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0)) .CellValue(h,1) = w h = .AddItem(#1/1/2001#) .ItemNonworkingUnits(h,False) = "weekday(value) in (1)" w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0),h) .CellValue(h,1) = w End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1024 |
How can I find if a specified date-time is a working or non-working unit
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 .BeginUpdate .Columns.Add("Date").Width = 48 .Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'" With .Chart .FirstVisibleDate = #1/1/2001# .PaneWidth(0) = 128 .FirstWeekDay = 1 .LevelCount = 2 End With With .Items h = .AddItem(#1/1/2001#) w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0)) .CellValue(h,1) = w h = .AddItem(#1/6/2001#) w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0)) .CellValue(h,1) = w End With .EndUpdate End With End Function </SCRIPT> </BODY> |
1023 |
When zooming to days, the non-working part of the chart occupies some not useful space. Can I reduce it
|
1022 |
My chart display only working hours, but when zooming to days, each day shows the non-working part of the day too, even if I use the ShowNonWorkingUnits property on False. What am I doing wrong
|
1021 |
I need to display only working hours and weekend part, but for some items I need another non-working part. Is this possible
|
1020 |
I can display the working hours, but how can I hide the weekend or non-working part of the chart when using the ShowNonWorkingUnits property on False
|
1019 |
How can I display only the working hours but uses less space for non-working part, such as weekend
|
1018 |
How can I display only the working hours but uses less space for non-working part, such as weekend
|
1017 |
How can I display only the working hours
|
1016 |
How can I specify non-working hours
|
1015 |
How can I display the working hours for a bar
|
1014 |
Is it possible to show only working hours, showing a small part for the weekend days, and in the same time showing the bars by splitting the non-working part and keeping the working units for the bar while moving
|
1013 |
How can I show bars with different solid color but black border
|
1012 |
I want to display a vertical line for each week, while I still need a vertical separator for each day. Is this possible
|
1011 |
How can I display the levels as year, day, AM and PM for each day
<BODY onload="Init()"> <OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With G2antt1 With .Chart .PaneWidth(False) = 0 .FirstVisibleDate = #12/1/2009# .UnitWidth = 22 .LevelCount = 3 .Level(0).Label = "<%yyyy%>" .Level(1).Label = "<%mm%>/<%dd%>" With .Level(2) .Label = "<%AM/PM%>" .Count = 12 End With End With End With End Function </SCRIPT> </BODY> |
1010 |
How can I change the pattern for a specified time unit, in the chart area
|
1009 |
How can I hide the non-working hours, but still display the non-working days with even less space
|
1008 |
How can I hide the non-working hours, but still display the non-working days with less space
|
1007 |
How can I hide the non-working hours, but still display the non-working days
|
1006 |
How can I hide the non-working hours, and the non-working days
|
1005 |
Can I highlights the non-working hours while my chart shows days
|
1004 |
How can I reduce the space/area being occupied by non-working units days or hours (method 2)
|
1003 |
How can I reduce the space/area being occupied by non-working units days or hours (method 1)
|
1002 |
How can I hide the non-working units
|
1001 |
How can I determine that a certain bar is the topmost (zorder)
|